(etags_getcwd, absolute_filename) [DOS_NT]: Canonicalize

the case of the drive letter.

diff --git a/lib-src/etags.c b/lib-src/etags.c
index b838d90b636b94ee90d0082805dbc572b30b6611..a1059e334d156f650bb7461f2893c61bd24adf72 100644 (file)
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -4664,6 +4664,9 @@ etags_getcwd ()
     for (p = path; *p != '\0'; p++)
       if (*p == '\\')
        *p = '/';
+    /* Canonicalize drive letter case.  */
+    if (islower (path[0]))
+      path[0] = toupper (path[0]);
   }
 #endif
 
@@ -4790,6 +4793,12 @@ absolute_filename (file, cwd)
 
       slashp = etags_strchr (slashp + 1, '/');
     }
+
+#ifdef DOS_NT
+  /* Canonicalize drive letter case.  */
+  if (res[0] && islower (res[0]))
+    res[0] = toupper (res[0]);
+#endif
   
   if (res[0] == '\0')
     return savestr ("/");